home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Extended Calculator 2.01 / Calculator programs / Simple Mirror Drawer < prev   
Encoding:
Text File  |  1994-01-25  |  228 b   |  14 lines  |  [TEXT/EcA1]
  1. a:=HMouse;
  2. b:=VMouse;
  3. while(not(button));
  4.     PPat(random(1,5));
  5.     x:=HMouse;
  6.     y:=VMouse;
  7.     line(a,b,x,y);
  8.     line(600-a,b,600-x,y);
  9.     line(a,300-b,x,300-y);
  10.     line(600-a,300-b,600-x,300-y);
  11.     a:=x;
  12.     b:=y;
  13. end;
  14.